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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS eyes UNDER A LICENSE AND MAY BE USED AND copie’ 
0 CORDANCE WITH TH ERMS OF LICEN AN THE 


N OTIC OF Tw E 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
hy at NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
Se pORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBIL 
SOFTWARE ON EQUIPMENT WHICH IS N 


ITY FOR THE USE OR RELIABILITY OF ITS 


Y 
NOT SUPPLIED BY DIGITAL. 
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FACILITY: FI1IACP Structure Level 1 
i ABSTRACT: 


This routine does the one time initialization for FCP. 


ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. This routine must be called 
in kernel mode. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 16:30 
MODIFIED BY: 


v03-011 CDS0007 Christian D. Saether 22-May-1984 
Create bad block scanner mailbox as permanent. 


v03-010 arenes Andrew C. Goldstein 12-Apr-1984 12:34 


x end points of locked area descriptors 
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ini occidentale idiciceapeaeintiedadgiiniaiaiidciameuinaaniisinia : o 
iSgeontgge 9: 4%: 3 DISKSVMGRASTERSEE Hike seein ce.e32:1° ab Vos 


AC G0s08 ew C. Goldstein, 24-Mar-1984 0:07 
Misc bug fixes Py storese reorganization 


vO3-008 ACG0608 Andrey C. Goldstein, 23-Mar-1984 12:03 | 
Dynamically ailocate impure storage on startup 


v03-007 (DS0006 Cortocion 2. D. Seether 19-F eb-1984 
emove reference t 
Change exterre. re RF. . to general mode. 
v03-006 (DS0005 Christian D. Seether 12-Dec-1983 
GL et “tr erat Cc 
E einete most of the in Leds, po aan ab ne in 
Soe channel br €6 FCHAN direc ely g been 
si tt foge ie tr %§ 


eally assigned to 
@ specific Sevie ce, anyway). 
v03-005 a eae Christian D. Seether grnnye-1965 
ly assign one disk i/o channel. Pemember its ccb address. 
v03-004 spores Christian D. Seether 6-Jul-1983 
Liminate creation of job controller mailbox. 


v05-003 ony Christian D0. Seether 15-Dec-1982 
some non-pic references. 


v03-002 ppecees C Seether 18-Jul-1982 
Changes to support tis to KOP file system. 


v03-001 37 L. Mark Pilant, 28-Jun-1982 15:10 
emove the addressing mode module switca. 


W02-006 AcGOzés Andrew C. Goldstein, 23-Dec-1981 21:04 | 
Add job controller mailbox 


LMPO00s . Mark Pilant. 1=Dec-1981 12:10 | 
Make external references use general mode | 


v02-002 ACG0167 Andrew C. Goldstein in —womee 19:26 
Previous revision history moved to f11B8 
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IBRARY ‘SYS a 08 BRARY 32°; | 

REQUIRE *SRCSSFCPDEF .B5o"s | 
TINE 

ts TLFCP ! initia Me file s | 

NITTSTORAGE : L_NORM NOVALUE; ! initialize global. stereee 

Dummy vectors to bracket the locked down code and data psects. 


SAAAAAS (NOWRITE, EXECUTE, ALIGN (9)); 
tbe “START : VECTOR OR £636 


| . ifse0rt3ts 3:95:99 PhSNa GR cHHG-Be2aawsece.0se.8°% cad, c 
He | pseCy SORA st pSyOCREncos (wows TE. EXECUTE, ALIGN (9)); | 
108 1 GcoemL 


GL SLOCKEDC9S (WOWRITE, EXECUTE, ALIGN (2)); 
T PODE END ee vectoR Od, o 


| 
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run -0C0@ 
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1 
- :37: VAX-11 Bliss-32 V4.0-74 ° 6 
18-se0-1984 99:35:99 STEKSVMEMASTERSEE Tin, SREDINIFCP.832:10 7" (2) 
GLOBAL ROUTINE INIT_FCP = | 
hag | 
i FUNCTIONAL DESCRIPTION: 
This routine does the one tine initialization for FCP. 
It is called oer ng process creation immediately after 
the xqp code is mapped. 
CALLING $ OuENCE : 
INIT_FCP ©) 


INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

system 1/0 data base 
OUTPUT PARAMETERS: 

NONE 


CHANNEL: gets channel number of 1/0 channel 
O_CCB: gets ccb address of i/o channel 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
FCP hooked up to system data base 
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STORAGE _DESC : VECTOR (2), ! descriptor for allocated storage 
STATUS; ! system status return 
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| 
| 
IMPLICIT OUTPUTS: | 
0.¢ | 
GLOBAL REGISTER | 

BASE = 10; 
EXTERNAL 

CTLSGL_CTLBASVA : ADDRESSING_MODE (ABSOLUTE), 

’ f permenens Pl space 


' base address o | 
EXESGL_FLAGS : BITVECTOR ADDRESSING_MODE (ABSOL 
I system flags vector | 


EXTERNAL LITERAL 
STORAGE _SIZE UNSIGNED (16), ! size of impure area in bytes 
STORAGE OFFSET : UNSIGNED (16), ! qt tset to point base register at 
EXESv_IRIT SIGNED (6); ! bit position of FCP init flag | 


First allocate the impure storage region. 


a ee 


1 
eg, i$-Sep-1906 00:57:49 VANIT eLisg-B2 ve.OH702 age 5 


~ 


P IF WOT (STATUS = SEXPREG (PAGCNT = (STORA size * 511) / $12, 
4 8 i = STORAGE _BESC, 
= 


) 
Base = STORAGE. DESCEI) «sions OFFSET 

s Ps 
art oe LBASVA™= , ORAGE Desert te 
INIT_STORAGE (); 


; ¥ toot ty set the FCP inited pit in the system fle s word to indicate that 
; a file system now exists (significant only dur rs system startup). 


NOW 


Rane etree (EXESGL FLAGS CEXESV_INIT]) 


w 


! This will happen when the *9P is merged into the sysinit process. 
! It should have all the privileges we need to create this mailbox, 
: so elevating and restoring them is not necessary. 


BEGIN 
LN oy CHAN 

pest : VECTOR (2); 
PIC_DESC (*ACPSBADBLOCK_MBX', DESC ); 
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ee 
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“nan 
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ef 


HEN 
BUG_CHECK (XQPERR); 
SDASSGN (CHAN = .MBX_CHAN); 
END; 
SS$_NORMAL 
END; ! end of routine INIT_FCP 


TITLE INIFCP 
IDENT \v04-000\ 


-PSECT S$CODES,NOWRT,2 
42 4D SF 4B 43 4F 4C 42 46 41 42 24 50 43 $i sed P.AAA: .ASCII \ACPSBADBLOCK_MBX\ : 


-PSECT SLOCKEDC9S,NOWRT ,2 


ne sen en 
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fF 1 
INIFCP 16-Sep-1 237: VAK-11 Bliss-32_ V4.0-742 P 6 ye 
vo4-600 1e=355=198e 19:80:39 DTScSvmmaSteRscr tix. sae ainiece.e32;1°%° (25. 
00000 L_CODE_END:: 
BLKB OO 


PSECT S$LOCKEDCOS,NOWRT,9 
00000 L_CODE_START:: 
-BLKB 


«PSECT SAAAAAS,NOWRT,9 
00000 CODE_START:: 
-BL 


. 

m 

4 

“ 

»D 

2 
OOwm"na oO 


SY 
YSSCREMBX, BUGS_XQPERR 
“EXTRN SYSSDASSGN 


-PSECT S$CODES,NOWRT,2 | 


; Routine Size: 125 bytes, Routine Base: S$CODES + 0010 


0409 SENTRY INIT ECP, Save R10 : 1110) 
SE 4 ¢ SUuBL2 #20,7SP : 
E be CLALY =CSP) Tiled 
14 AE OOF PUSHAB STORAGE _DESC : | 
00000000" 8F DD PUSHL &#<<STORAGE_SIZE+511>/512> : 
000000006 90 4 F CALLS #4, SYSSEXPREG ; 
§ 5D PLL sthrus. : 11721 
: | 
gi Fe CALLS #1, SYSSEXIT : 
ry 10 AE 000000006 BF C ADDL3 #STORAGE OFFSET, STORAGE_DESC+4, BASE 3 1173) 
oF 1 AE 00 MOVL STORAGE BESC+4, @#CTLSGL_CTLBASVA 7 1174 
v CF CALLS #0, INIT_STORA : 1176 
36 f G 3 BBSS S*EXESV_INIT, Q@#EXESGL_FLAGS, 3 ; 1188 
AE 1 BO MOVL =# : 119 
AE A6 AF MOVAB P.AAA, DESC+4 ; 
04 AE OF PUSHAB DESC ; 1202 
7E FFFF BF iC MOVZWL 768535, (SP) : 
7E 0708 «BF 3¢ MOV ZWL #1800, (SP) ; 
2 3 PUSHL #1 3 | 
ae mau ppc Ea 
000000006 90 07 Fe CALLS 7. SYSSCREMBX ; | 
| tii ot i £1206 
Os sWORD — <BUGS_XOPERR!4> ; a, 
2 Py | 
000000006 i CALLS #1,” SYSSDASSGN : 
8 i 5 MOVL #1. RO 1212 | 


| 
CS scoevieunsnesnstenthapenes sientelipneanieaiveneeseectaiee incertae teeters igeannmnamesiieeenareaeiaaeiasammanasniiataateapereimsaaamnerialidemanegnnpemsnaanmmimsmnginmrmnmnestiitn 


1$-se0-1 964 93:35:99 «—-BEEkdumtnaStencchtixcsncainsece.e32:1°% «25 


- | 


F 


—> > 2) +» os pb 
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ee i ei ee ee ee ee ee ee ee ee 
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ifoseont9gs 00:37340  yanedt oLssec3 


GLOBAL ROUTINE INIT STORAGE : L_NORM NOVALUE = 


i FUNCTIONAL DESCRIPTION: 
This routine initializes the file system's global impure area. 


i CALLING SEQUENCE: 
i INIT STORAGE () 


' 

i 

' 

' 

' 

' 

! 

i INPUT PARAMETERS: 
: NONE 

' 

! IMPLICIT INPUTS: 
system 1/0 data base 

i OUTPUT PARAMETERS: 

: NONE 

i IMPLICIT OUTPUTS: 

; IO_CHANNEL: gets channel number of 1/0 channel 
: 10_CCB: gets ccb address of i/o channel 

i ROUTINE VALUE: 

; NONE 

! 

! 

' 

' 

' 


i SIDE EFFECTS: 
FCP hooked up to system data base 


BEGIN 
LOC 
LOCKED_DESC : VECTOR (2), ! descriptor for locked down pages 
STATUS; ! system status return 
BIND_COMMON; 
EXTERNAL 
CTLSGL_F11BXQP : ADDRESSING_MODE (ABSOLUTE); 
! pointer to xXQP 
EXTERNAL LITERAL 
STORAGE _SIZE : UNSIGNED (16), ! size of impure area in bytes 
STORAGE _OFFSET : UNSIGNED (16); ! offset to point base register at 
LINKAGE 
L_FF CHAN = JSB  : GLOBAL (CHANNEL=1, CCB=2); 
GLOBAL REGISTER 
CHANNEL = 1, 
ccB =2 : REF BBLOCK; 
EXTERNAL ROUTINE 
1OC$FF CHAN : LLFFCHAN AODRESSING_MODE (GENERAL), 


2 
:C 


Vv 
F 


4.0-742 Pa 
11X.SRCJINIFCP.832;1 


8 
* «3)| 


i 


vou-600 1feseo- 1944 99:30:33 DI Skovmenast TEACH LIX. SRCIINIFCP.B32;1° 9° (33 


] 


4 ' find free channel 
DISPATCH; ' main dispatch routine 
| 

is ! Now lock appropriate areas into the working set. These are code and data | 
re ; thet are used at raised IPL, plus the private kernel stack. 

. i 
78 LOCKED_DESC FO} = Lc ODE STARTS 

LOCKED_DESC = L_CODE_END - 

STATUS = SLKWSET (INADR , OCKED =°ES0); 

1f NOT .STATUS THEN C 


STATUS = SLKWSET (INADR = LOCKED_DESC); 
If NOT .STATUS THEN SEXIT (CODE = .STATUS); 


: Find an 1/0 channel for use by the file system. 


4 wor IOCSFFCHAN () 
BUG_CHECK (NOACPCHAN, ‘Failed to find channel for xQP'); 
CCB CCCBSB_AMOD) = -1; 


10_CCB = .CCB; 
10-CH HANNEL = . CHANNEL; 


: Initialize the rest of the impure storage area. 


CODE SIZE = L_CODE END = - 7 (008 START; 
CODE “ADDRESS CODE_S 

SIZE = STORAGE” ATH 
BATA “ADDRESS : ST ORKGE oe at 


KQP_STKLIM Fo} = XQP_QUEUE; 
KOQP"STKLIM = XQP~ STACK; 


Set up the KQP queue head and dispatcher addresses. 


et tt tt te 


WN =O OOO UE WN “OOOO VU Fw 0 OC 


KQP" OU) P” QUEUE ; 
xP DISPATCHER a *DISPATCH: 


CTLSGL_F11BKOP = XOP_QUEUE; 
END; ! end of routine INIT_STORAGE 


xQPp ~BUEUE ue Ff] = = = ~QUEUE; 


Be Se Oe Se Oe Se Se Oe Se Se Se Se Se Se Se Ge Ge Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Se Ge Se Se Se Se oe 


a ed a a dd wd wd dd td dd 8 


MO O@wno ur fun 


RORY ee ot 


CKE 
SEXIT (CODE = .STAfUS); 
LOCKED_DESC € £0) = L_DA ART; 

LOCKED~DESC t=DATAT END -"1; 
; 
| 
.EXTRN CTLSGL_F11BXQP, IOCSFFCHAN | 
| 
| 


NN eeeeaeaeeeeEOEOEOEeOEOEOEOEeEeEEEOEOEOEOEEeeeeeEOEEEeEeEEeee eee eee a... —— = — | 
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1 
INTEC 1b-se “1 :37: VAX=11 BLiss-32_V4.0-742 P 0) 
“Voe~600 We-Sep-19be 19:80:99 DL SkSUMSMASTERSEI Tix-SRCIINIFCP.832;1°%" (3) 
.EXTRN DISPATCH, SYSSLKWSET 
-EXTRN BUGS_NOACPCHAN 
| 


OBFC 00000 -ENTRY {Att STORAGE, Save R2,R3,R4,R5,R6,R7,RB,RI,-; 1213 


; Routine Size: 175 bytes, Routine Base: S$CODE$ + 008D 


ND 


1334 1 
1324 1€ 
1325 0 ELUDOM 


] 
i 
| 
/ 
é 
| 7 G MOVAB SYSSEXIT, R7 : 
| b Bopoospos 69 ; MOV SYSSLKWSET, R6 : | 
SUBL2 SP : 
F540 CA MOVAB “27 (BASE), R5 + 1249) 
FEL OCA OE MOVAB =192(BASE), R3 ; 
4 FF fa 9E VAB =152(BASE : 
99 ' CF OF PUSHAB L_CODE_ST + 1278 
06 AE " CFE VAB LCODETEND=1, LOCKED_DESC+4 * 1579 | 
— 7C¢ C CLRO  -TSP) + 1281 
08 AE OF ‘ PUSHAB LOCKED DESC ; 
a CALLS #3, SYSSLKWSET ; 
i) VL RO, STATUS : 
0 E 7 BLBS STATUS, 1$ : 1282 
dD A PUSHL STAT : 
67 FB C CALLS #1, SYSSEXIT ; 
6E 5 p F 1$: MOVL RS, LOCKED_DESC + 1284 
04 «AE 0283 cA E 4g MOVAB  691(BASE), ~LOCKED_DESC+4 + 1285 
E 7C€ 0004 CLRQ =(SP) + 1287 
08 AE 9F O006A PUSHAB LOCKED DESC ; 
F 4D CALLS #3, SYSSLKWSET : 
D 30 VL —_ RO STATUS : 
0 E BLBS STATUS, 2$ + 1288 
DD 36 PUSHL STATUS ; 
67 F 5 CALLS #1, SYSSEXIT : 
000000006 9 1 58 2%: JSB8 1OCSFF CHAN + 1293 
04 E 61 BLBS = «RO, 3 : 
Fer 64 BUGW : 1295 
00 Qe .WORD <BUG$_NOACPCHAN! 4> : 
99 A2 09 3$: MNEGB #1 + 1297 
FF74 CA 2 D $ MOVL CCB, -140¢ + 1299 
FF78 CA 1 00 00071 MOVL CHANNEL, -136(BASE) : 1300 
Fra CA 00000000" &F 00 00076 MOVL &#<L_CODE_END-CODE START>, -180(BASE) : 1305 
FESO OCA 000° CF 3 007F MOVAB CODE START, -1 6(BASE) > 1306 
FFS4 OCA 006 SF 3C 00086 MOVZWL #STORAGE SIZE, -172(BASE) : 1307 
FF58 «CA DO 00080 MOVL  R5, -168TBASES : 1308 
64 D6 0092 MOVL 3, (R4) + 1310 
06 AG D 909 MOVL R5. 4(R4) > 1311 
63 53 D0 00099 MOVL 3. (R3) : 1316 
04 =A 5 b0 99¢ MOVL 3, 4(R3) : 1317 
FF48 OCA 00006 cf : MOV DISPATCH -184 (BASE) : 1318 
000000006 9F 3 00 000A7 MOVL R3, @#CTLSGL_F11BXOP : 1 20 
04 OOOAE RET : 1322 
| 
| 
} 
| 


freee ey ee ge eee ee gy ne Rye cee Sle 


voo~600 1eSep=1986 2:80:93 beSkbumsnaStenschtix-sneziniece.032;1°%" (3). 


; PSECT SUMMARY 

3 Name Bytes Attributes 

; NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(9) 
; SLOCKEDCOS NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(9) 
; SLOCKEDC9S NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, fe Sg Tt 
3 CODE 316 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

3 Soamen == S$yabel§ scoeeee= Pages Processing 

; File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 27 0 1000 00:01.9 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: INIFCP/OBJ=OBJ$:INIFCP MSRC$: INIFCP/UPDATE=(ENHS: INIFCP) 


; Size: 300 ogg + 16 data bytes 


: > 6146" 
; Lexemes/CPU-Min: 48519 

; Y Used: 201 pages 
; Compilation Complete 


3 
2 
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